This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
RE: Converting Contacts from ACT ~Kelly Breboosipulings 12.Dec.03 10:49 PM a Web browser Notes Client 6.0.1Windows 2000
I wrote this code to migrate act contacts from an ACT database to a notes document. I recommend using the ACT API for additional reference.
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.currentdatabase
Dim contactdoc As NotesDocument
Dim actview As NotesView
Set actview = db.GetView("luByActId")
Dim ACTId As String
Dim appflag As Boolean
'check and see if they want to specify the .dbf file to import, or they have only one file which the system will find.
If Messagebox("Do you have more than 1 ACT Database to import?", MB_YESNO + MB_ICONQUESTION) = IDYES Then
FileName = OpenCommDlg
Set objDatabase = CreateObject("ACTOLE.DATABASE")
objDatabase.Open FileName
Else
Set objApplication = CreateObject("ACTOLE.APPOBJECT")
Set objDatabase = CreateObject("ACTOLE.DATABASE")
objDatabase.Open objApplication.GetOpenDBName
objApplication.Minimize
appflag = True
End If
If objDatabase.IsMultiUser Then
Dim username As String
Dim password As String
username = Inputbox("Please Enter a User Name")
password = Inputbox("Please Enter a Password")
objDatabase.validateuser username, password
End If
Dim counter As Long
counter = 0
Dim pp As Integer
If objDatabase.IsOpen Then
Set objContact = objDatabase.CONTACT
If objContact.recordCount > 0 Then
objContact.MoveFirst
While Not objContact.IsEOF
If objContact.Data(CF_PublicPrivate) = 1 Then
counter = counter + 1
Print "Importing Record " & counter & " of " objContact.recordCount
ACTId = objContact.Data(CF_UniqueID)
Set contactdoc = actview.GetDocumentByKey(ACTId, True)
If contactdoc Is Nothing Then
Set contactdoc = db.createdocument()
contactdoc.ACTUniqueID = objContact.Data(CF_UniqueID)
End If
Call contactdoc.save(True,True)
End If
objContact.MoveNext
Wend
End If
Set objContact = Nothing
objDatabase.Close
If appflag Then
objApplication.CloseDB
End If
End If
Return to top
. . RE: Converting Contacts from ACT (~Kelly Breboosi... 12.Dec.03)
Print this page
